home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / apcp38.arc / #0303.ASP < prev    next >
Text File  |  1991-01-09  |  8KB  |  388 lines
  1. goto init
  2.  
  3. dial:
  4. strcmp s2 "     "
  5. if success
  6. return
  7. endif
  8. clear
  9. box 00 00 02 79 n9
  10. atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
  11. atsay 01 08 n9 "│          │                             │"
  12. atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
  13. atsay 01 02 n8 s2
  14. atsay 01 10 n8 "n/a     "
  15. atsay 01 21 n8 s3
  16. atsay 01 51 n8 "n/a                        "
  17. locate 05 00
  18. transmit "C D/"
  19. transmit s2
  20. transmit "/3,xxxxnnnn,nnnnxxxx^m"  ; PC-Pursuit Account and Password
  21. rget s1
  22. rget s1 80 40
  23. rget s1 40
  24. find s1 "CONNECTED"
  25. if found
  26. alarm 2
  27. goto exit
  28. else
  29. strcpy s9 "M"
  30. endif
  31. return 
  32.  
  33. exit:
  34. fopeno "APCP.STR" text
  35. fputs "#0303"
  36. fputs s2
  37. fcloseo
  38. execute s2
  39.  
  40. top:
  41. find s0 "*"
  42. if found
  43. strcpy s2 "#NODE"
  44. goto exit
  45. endif
  46. find s0 "A"
  47. if found
  48. strcpy s2 "GAATL"
  49. strcpy s3 "Atlanta, GA             404"
  50. gosub dial
  51. endif
  52. find s0 "B"
  53. if found
  54. strcpy s2 "MABOS"
  55. strcpy s3 "Boston, MA              617"
  56. gosub dial
  57. endif
  58. find s0 "C"
  59. if found
  60. strcpy s2 "ILCHI"
  61. strcpy s3 "Chicago, IL         312 815"
  62. gosub dial
  63. endif
  64. find s0 "D"
  65. if found
  66. strcpy s2 "OHCLV"
  67. strcpy s3 "Cleveland, OH           216"
  68. gosub dial
  69. endif
  70. find s0 "E"
  71. if found
  72. strcpy s2 "TXDAL"
  73. strcpy s3 "Dallas, TX          214 817"
  74. gosub dial
  75. endif
  76. find s0 "F"
  77. if found
  78. strcpy s2 "CODEN"
  79. strcpy s3 "Denver, CO              303"
  80. gosub dial
  81. endif
  82. find s0 "G"
  83. if found
  84. strcpy s2 "MIDET"
  85. strcpy s3 "Detroit, MI             313"
  86. gosub dial
  87. endif
  88. find s0 "H"
  89. if found
  90. strcpy s2 "     "
  91. strcpy s3 "                        xxx"
  92. gosub dial
  93. endif
  94. find s0 "I"
  95. if found
  96. strcpy s2 "     "
  97. strcpy s3 "                        xxx"
  98. gosub dial
  99. endif
  100. find s0 "J"
  101. if found
  102. strcpy s2 "TXHOU"
  103. strcpy s3 "Houston, TX             713"
  104. gosub dial
  105. endif
  106. find s0 "K"
  107. if found
  108. strcpy s2 "MOKAN"
  109. strcpy s3 "Kansas City, MO     816 913"
  110. gosub dial
  111. endif
  112. find s0 "L"
  113. if found
  114. strcpy s2 "CALAN"
  115. strcpy s3 "Los Angeles, CA         213"
  116. gosub dial
  117. endif
  118. find s0 "M"
  119. if found
  120. strcpy s2 "FLMIA"
  121. strcpy s3 "Miami, FL               305"
  122. gosub dial
  123. endif
  124. find s0 "N"
  125. if found
  126. strcpy s2 "     "
  127. strcpy s3 "                        xxx"
  128. gosub dial
  129. endif
  130. find s0 "O"
  131. if found
  132. strcpy s2 "MNMIN"
  133. strcpy s3 "Minneapolis, MN         612"
  134. gosub dial
  135. endif
  136. find s0 "P"
  137. if found
  138. strcpy s2 "NJNEW"
  139. strcpy s3 "Newark, NJ              201"
  140. gosub dial
  141. endif
  142. find s0 "Q"
  143. if found
  144. strcpy s2 "NYNYO"
  145. strcpy s3 "New York, NY        212 718"
  146. gosub dial
  147. endif
  148. find s0 "R"
  149. if found
  150. strcpy s2 "     "
  151. strcpy s3 "                        xxx"
  152. gosub dial
  153. endif
  154. find s0 "S"
  155. if found
  156. strcpy s2 "PAPHI"
  157. strcpy s3 "Philadelphia, PA        215"
  158. gosub dial
  159. endif
  160. find s0 "T"
  161. if found
  162. strcpy s2 "AZPHO"
  163. strcpy s3 "Phoenix, AZ             602"
  164. gosub dial
  165. endif
  166. find s0 "U"
  167. if found
  168. strcpy s2 "ORPOR"
  169. strcpy s3 "Portland, OR            503"
  170. gosub dial
  171. endif
  172. find s0 "V"
  173. if found
  174. strcpy s2 "NCRTP"
  175. strcpy s3 "Research Triangle Park  919"
  176. gosub dial
  177. endif
  178. find s0 "W"
  179. if found
  180. strcpy s2 "     "
  181. strcpy s3 "                        xxx"
  182. gosub dial
  183. endif
  184. find s0 "X"
  185. if found
  186. strcpy s2 "     "
  187. strcpy s3 "                        xxx"
  188. gosub dial
  189. endif
  190. find s0 "Y"
  191. if found
  192. strcpy s2 "UTSLC"
  193. strcpy s3 "Salt Lake City, UT      801"
  194. gosub dial
  195. endif
  196. find s0 "Z"
  197. if found
  198. strcpy s2 "     "
  199. strcpy s3 "                        xxx"
  200. gosub dial
  201. endif
  202. find s0 "0"
  203. if found 
  204. strcpy s2 "CASFA"
  205. strcpy s3 "San Francisco, CA       415"
  206. gosub dial
  207. endif
  208. find s0 "1"
  209. if found
  210. strcpy s2 "     "
  211. strcpy s3 "                        xxx"
  212. gosub dial
  213. endif
  214. find s0 "2"
  215. if found
  216. strcpy s2 "     "
  217. strcpy s3 "                        xxx"
  218. gosub dial
  219. endif
  220. find s0 "3"
  221. if found
  222. strcpy s2 "WASEA"
  223. strcpy s3 "Seattle, WA             206"
  224. gosub dial
  225. endif
  226. find s0 "4"
  227. if found
  228. strcpy s2 "     "
  229. strcpy s3 "                        xxx"
  230. gosub dial
  231. endif
  232. find s0 "5"
  233. if found
  234. strcpy s2 "FLTAM"
  235. strcpy s3 "Tampa, FL               813"
  236. gosub dial
  237. endif
  238. find s0 "6"
  239. if found
  240. strcpy s2 "DCWAS"
  241. strcpy s3 "Washington, DC  202 301 703"
  242. gosub dial
  243. endif
  244. find s0 "7"
  245. if found
  246. strcpy s2 "     "
  247. strcpy s3 "                        xxx"
  248. gosub dial
  249. endif
  250. find s0 "8"
  251. if found
  252. strcpy s2 "     "
  253. strcpy s3 "                        xxx"
  254. gosub dial
  255. endif
  256. find s0 "9"
  257. if found
  258. strcpy s2 "     "
  259. strcpy s3 "                        xxx"
  260. gosub dial
  261. endif
  262. find s0 "@"
  263. if found
  264. strcpy s2 "     "
  265. strcpy s3 "                        xxx"
  266. gosub dial
  267. endif
  268. find s0 "#"
  269. if found
  270. strcpy s2 "     "
  271. strcpy s3 "                        xxx"
  272. gosub dial
  273. endif
  274. find s0 "$"
  275. if found
  276. strcpy s2 "     "
  277. strcpy s3 "                        xxx"
  278. gosub dial
  279. endif
  280. find s0 "%"
  281. if found
  282. strcpy s2 "     "
  283. strcpy s3 "                        xxx"
  284. gosub dial
  285. endif
  286. find s0 "&"
  287. if found
  288. strcpy s2 "     "
  289. strcpy s3 "                        xxx"
  290. gosub dial
  291. endif
  292. find s9 "M"
  293. if found
  294. strcpy s9 " "
  295. goto top
  296. endif
  297. clear
  298. box 00 00 02 79 n9
  299. atsay 01 02 n8 "APCP: No city requested ... terminating ..."
  300. locate 05 00
  301. alarm 2
  302. exit
  303.  
  304. init:
  305. clear
  306. init n9 07
  307. init n8 07
  308. box   00 00 02 79 n9
  309. locate 05 00
  310. if linked
  311. atsay 01 28 n8 "Thom Little Associates"
  312. pause 1
  313. atsay 01 02 n8 "APCP: Initializing and resetting Telen"
  314. atsay 01 40 n8 "et ... one moment please ..."
  315. transmit "^m" ;
  316. pause 1
  317. transmit "D^m"
  318. waitfor "=" 60
  319. transmit "D1^m"
  320. waitfor "@" 60
  321. fopeno "APCP.STR" text
  322. fputs "#0303"
  323. fputs "MABOS"
  324. fcloseo
  325. strcpy s9 " "
  326. else
  327. atsay 01 02 n8 "APCP: Initializing and resetting Telen"
  328. atsay 01 40 n8 "et ... one moment please ..."
  329. endif
  330. set databits 8
  331. set parity none
  332. transmit "^m^m"
  333. transmit "@^m"
  334. waitfor "@"
  335. transmit "D^m"
  336. waitfor "@" 30
  337. pause 2
  338. clear
  339. box 00 00 22 38 n9
  340. box 00 41 22 79 n9
  341. atsay 01 02 n8 "A Atlanta, GA ........... 404 GAATL"
  342. atsay 02 02 n8 "B Boston, MA ............ 617 MABOS"
  343. atsay 03 02 n8 "C Chicago, IL ....... 312 815 ILCHI"
  344. atsay 04 02 n8 "D Cleveland, OH ......... 216 OHCLV"
  345. atsay 05 02 n8 "E Dallas, TX ........ 214 817 TXDAL"
  346. atsay 06 02 n8 "F Denver, CO ............ 303 CODEN"
  347. atsay 07 02 n8 "G Detroit, MI ........... 313 MIDET"
  348. atsay 08 02 n8 "H ....................... ... ....."
  349. atsay 09 02 n8 "I ....................... ... ....."
  350. atsay 10 02 n8 "J Houston, TX ........... 713 TXHOU"
  351. atsay 11 02 n8 "K Kansas City, MO ... 816 913 MOKAN"
  352. atsay 12 02 n8 "L Los Angeles, CA ....... 213 CALAN"
  353. atsay 13 02 n8 "M Miami, FL ............. 305 FLMIA"
  354. atsay 14 02 n8 "N ....................... ... ....."
  355. atsay 15 02 n8 "O Minneapolis, MN ....... 612 MNMIN"
  356. atsay 16 02 n8 "P Newark, NJ ............ 201 NJNEW"
  357. atsay 17 02 n8 "Q New York, NY ...... 212 718 NYNYO"
  358. atsay 18 02 n8 "R ....................... ... ....."
  359. atsay 19 02 n8 "S Philadelphia, PA ...... 215 PAPHI"
  360. atsay 20 02 n8 "T Phoenix, AZ ........... 602 AZPHO"
  361. atsay 21 02 n8 "U Portland, OR .......... 503 ORPOR"
  362. atsay 01 43 n8 "V Res Tri Prk, NC ....... 919 NCRTP"
  363. atsay 02 43 n8 "W ....................... ... ....."
  364. atsay 03 43 n8 "X ....................... ... ....."
  365. atsay 04 43 n8 "Y Salt Lake City, UT .... 801 UTSLC"
  366. atsay 05 43 n8 "Z ....................... ... ....."
  367. atsay 06 43 n8 "0 San Francisco, CA ..... 415 CASFA"
  368. atsay 07 43 n8 "1 ....................... ... ....."
  369. atsay 08 43 n8 "2 ....................... ... ....."
  370. atsay 09 43 n8 "3 Seattle, WA ........... 206 WASEA"
  371. atsay 10 43 n8 "4 ....................... ... ....."
  372. atsay 11 43 n8 "5 Tampa, FL ............. 813 FLTAM"
  373. atsay 12 43 n8 "6 Washington, DC  202 301 703 DCWAS"
  374. atsay 13 43 n8 "7 ....................... ... ....."
  375. atsay 14 43 n8 "8 ....................... ... ....."
  376. atsay 15 43 n8 "9 ....................... ... ....."
  377. atsay 16 43 n8 "@ ....................... ... ....."
  378. atsay 17 43 n8 "# ....................... ... ....."
  379. atsay 18 43 n8 "& ....................... ... ....."
  380. atsay 19 43 n8 "$ ....................... ... ....."
  381. atsay 20 43 n8 "% ....................... ... ....."
  382. atsay 21 43 n8 "* Telenet Direct Node Connect      "
  383. locate 23 00
  384. get s0
  385. goto top
  386. return
  387. 
  388.